Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/DF/Kap_1/Menu.dxr/00004_Najezd male menu.ls

Text File | 1998-05-19 | 805 b | 33 lines

property Tlacitko, Znacka

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Znacka, [#comment: "Znacka:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set Tlacitko to the castNum of sprite the spriteNum of me
  set the member of sprite the spriteNum of me to member (Tlacitko + 1)
end

on mouseLeave me
  set the cursor of sprite the spriteNum of me to -1
  set the member of sprite the spriteNum of me to member Tlacitko
end

on mouseDown me
  puppetSound(1, "Klik")
  set the member of sprite the spriteNum of me to member Tlacitko
end

on mouseUp me
  go(Znacka)
end